MacHome 1999 February/March/MacHome CD (February and March 1999).iso/Edutainment/INFOHIGHWAYDEMOS/demo/MENU.DCR/scripts_20.ls

Text File | 1999-09-16 | 669 b | 32 lines

on enterFrame
  global experimenterMenu
  set ActiveStartspr to 3
  set Experimenter to ActiveStartspr
  set seBrancher to ActiveStartspr + 1
  set diffuser to ActiveStartspr + 2
  set correspondre to ActiveStartspr + 3
  set echanger to ActiveStartspr + 4
  set naviguer to ActiveStartspr + 5
  set ro to rollOver()
  case ro of
    Experimenter:
      go(the frame)
    seBrancher:
      go("seBrancherOpen")
    diffuser:
      go("diffuserOpen")
    correspondre:
      go("correspondreOpen")
    echanger:
      go("echangerOpen")
    naviguer:
      go("naviguerOpen")
    otherwise:
      go("experimenterClose")
  end case
end

on exitFrame
  go(the frame)
end